﻿Public Class LockClass

    Private Shared _instance As LockClass

    Public Shared ReadOnly Property NewProperty() As LockClass
        Get
            If _instance Is Nothing Then
                _instance = New LockClass()
            End If
            Return _instance
        End Get
    End Property

    Private _object As New Object

    Public Sub Wait()
        SyncLock _object

        End SyncLock
    End Sub

End Class
